program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x, y : Double;
  count : Integer;
  n : Integer;
  I : Integer;
  fout : file;

begin
  count := 0;
  I := 0;
  while(i <> 100000) do Begin
    x := Random * 2;
    y := Random * 2;
    x := x - 1;
    y := y - 1;
    i := (i + 1);
    if( x * x + y * y <= 1) then
      count := (count + 1);
    writeln(count / (i + 0.0) * 4);
  end;
  write(  count / (i + 0.0) * 4);

end.
